home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / resetdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  279 b   |  13 lines
  1. program ResetDemo;
  2. var
  3.   Sample: Text;
  4.   s: String (42);
  5. begin
  6.   Rewrite (Sample);  { Open an internal file for writing }
  7.   WriteLn (Sample, 'Hello, World!');
  8.   Reset (Sample);  { Open it again for reading }
  9.   ReadLn (Sample, s);
  10.   WriteLn (s);
  11.   Close (Sample)
  12. end.
  13.